home *** CD-ROM | disk | FTP | other *** search
/ Golden Disk / Golden_Disk_89-06_1989_-_de_Side_B.d64 / basic demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  667b  |  27 lines
  1. 10 rem dies ist ein basic demo fuer
  2. 20 rem den "prg. generator", das ihnen
  3. 30 rem zeigen soll, wie man das fertige
  4. 40 rem prg. in ihre eigenen programme
  5. 50 rem einbindet und aufruft
  6. 60 :
  7. 70 if a=0 then a=1:load"test song",8,1
  8. 75 :
  9. 80 rem ^ "demo song" schon geladen ?
  10. 90 rem wenn nicht, dann nachholen und
  11. 100 rem wieder "run"
  12. 110 :
  13. 120 rem titelbild
  14. 130 poke 53280,0:poke53281,0
  15. 140 print"[147]"tab(13)"ba[155]si[152]c de[151]mo"
  16. 150 print"  druecken sie space zum abspielen"
  17. 160 print"            des songs !"
  18. 170 get a$:if a$<>" " then 170
  19. 175 :
  20. 180 sys 23800: rem los gehts !
  21. 190 :
  22. 200 input "        nocheinmal (j/n)";a$
  23. 210 if a$="j" or a$="[202]" then 180
  24. 220 if a$="n" or a$="n" then 240
  25. 230 print"was?":goto 180
  26. 240 print"list[145][145]";
  27.